home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacPerl 4.1.3 / t / mac / FAccess.t < prev    next >
Encoding:
Text File  |  1993-12-14  |  987 b   |  21 lines  |  [TEXT/MPS ]
  1. #!perl
  2.  
  3. require "FAccess.ph";
  4.  
  5. print &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_GTABINFO), "\n";
  6. &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_STABINFO, 7);
  7. $res = &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_GFONTINFO);
  8. print "$res\n";
  9. print join(", ", &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_GFONTINFO)), "\n";
  10. # &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_SFONTINFO, "Chicago", 12);
  11. &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_SFONTINFO, "Geneva");
  12. # &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_SFONTINFO, 4, 9);
  13. $res = &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_GWININFO);
  14. print "$res\n";
  15. print join(", ", &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_GWININFO)), "\n";
  16. &MacPerl'FAccess("$ENV{MPW}Worksheet", &F_SWININFO, 200, 200, 400, 400);
  17. $res = &MacPerl'FAccess("knuth:Development:Perl:config.h", &F_GSELINFO);
  18. print "$res\n";
  19. print join(", ", &MacPerl'FAccess("knuth:Development:Perl:config.h", &F_GSELINFO)), "\n";
  20. &MacPerl'FAccess("knuth:Development:Perl:config.h", &F_SSELINFO, 1000, 1200);
  21.